put_line_VS Subroutine

private subroutine put_line_VS(string, iostat)

Append a varying string to the current record of the default unit, terminating the record

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string
integer, intent(out), optional :: iostat

Source Code

  subroutine put_line_VS (string, iostat)

    type(varying_string), intent(in) :: string
    integer, intent(out), optional   :: iostat


    call put_line(char(string), iostat)

! Finish

    return

  end subroutine put_line_VS